home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / game_224.swf / scripts / frame_96 / DoAction.as
Text File  |  2006-01-17  |  954b  |  44 lines
  1. x = "1";
  2. Temp = "0";
  3. while(piles >= x)
  4. {
  5.    TempValue = "0";
  6.    y = "1";
  7.    Ace = "0";
  8.    while(getProperty("_level0/PlayerCard0" add x add "/Card0" add y, _visible) == "1")
  9.    {
  10.       Temp = getProperty("_level0/PlayerCard0" add x add "/Card0" add y, _currentframe);
  11.       while("14" < Temp)
  12.       {
  13.          Temp = temp - "13";
  14.       }
  15.       Temp -= "1";
  16.       if("10" < Temp)
  17.       {
  18.          Temp = "10";
  19.       }
  20.       if(Temp == "1")
  21.       {
  22.          Ace += "1";
  23.          Temp = "11";
  24.       }
  25.       TempValue += Temp;
  26.       while("21" < TempValue and "0" < Ace)
  27.       {
  28.          TempValue -= "10";
  29.          Ace -= "1";
  30.       }
  31.       y += "1";
  32.    }
  33.    set("_level0/Pileinfo0" add x add "/:Cval",TempValue);
  34.    if("21" < TempValue)
  35.    {
  36.       set("_level0/Pileinfo0" add x add "/:t1",TempValue add ", Busted");
  37.    }
  38.    else
  39.    {
  40.       set("_level0/Pileinfo0" add x add "/:t1",TempValue);
  41.    }
  42.    x += "1";
  43. }
  44.